home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / guiext162.lha / GuiExtension / Accessories / Ams.s < prev    next >
Text File  |  1997-05-04  |  559b  |  26 lines
  1. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. ;
  3. ; Amos Switcher v1.0 ©1996 Dairymen Soft
  4. ; Written by Pietro Ghizzoni
  5. ; E-Mail: ghizzo@agonet.it
  6. ;
  7.  
  8.  
  9.         include    'gs/Amos.gs'
  10.         include    'exec/exec_lib.i'
  11.         include    'exec/tasks.i'
  12.  
  13.         lea    AmosName(pc),a1
  14.         move.l    $4,a6
  15.         Jsr    _LVOFindTask(a6)
  16.         tst.l    d0
  17.         beq.s    NoEditor
  18.     
  19.         move.l    d0,a0            ;Task Sructure Address -> A0
  20.         move.l    TC_Userdata(a0),a5    ;Amos Data Zone Address -> A5
  21.     
  22.         EcCalD    AMOS_WB,1        ;Call the Amos To Front function
  23.         move.w    #0,T_NoFlip(a5)        ;Unlock Amos
  24. NoEditor    Rts
  25.  
  26. AmosName    dc.b    ' AMOS',0